Spatial analysis of oil spills in CA.
This analysis uses data from the California Department of Fish and Game, Office of Spill Prevention and Response’s Oil Spill Incident Tracking. This analysis focuses on 2008 oil spill data.
ca_counties <- read_sf(here("data", "project-01", "ca_counties", "CA_Counties_TIGER2016.shp")) %>% clean_names()
oil_spills <- read_sf(here("data", "project-01", "ds394.shp")) %>% clean_names()
# Create subset of ca_counties to just have name and location
ca_subset <- ca_counties %>%
select(name)
# Check CRS
# st_crs(ca_subset) #WGS 84
# st_crs(oil_spills) # NAD 83
# Change crs of oil_spills data
oil_spills <- st_transform(oil_spills, 3857)
# Check CRS
# st_crs(oil_spills)